home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 4 / Apprentice-Release4.iso / Demos / AppMaker 2.0b3 / Demo AppMaker 1.5 / Demo AppMaker™ / Demo AppMaker™.rsrc / TmpP_1014_List < prev    next >
Encoding:
Text File  |  1992-04-08  |  2.3 KB  |  94 lines
  1. %case window field%
  2.     %HandleName%:%        %ListHandle;
  3.     %fieldname%:%        %integer;
  4. %case winAuxiliary%
  5.     {----------}
  6.     Procedure Build%Itemname%;
  7.     Begin
  8.         with cur^ do begin
  9.             SetWFont (%itemname%);
  10.             %HandleName% := NewV1List (GetWRect (%itemname%), thePort);
  11.             AddToList ('One',   %HandleName%);
  12.             AddToList ('Two',   %HandleName%);
  13.             AddToList ('Three', %HandleName%);
  14.             AddToList ('Infinity',  %HandleName%);
  15.             LDoDraw (true, %HandleName%);
  16.         end; {with}
  17.     End; {Build%Itemname%}
  18.     
  19. %case create%
  20.     Build%Itemname%;
  21. %case dispose%
  22.     LDispose (%HandleName%);
  23. %case mousein%
  24.     if PtInRect (where, %HandleName%^^.rView) then begin
  25.         if LClick (where, modifiers, %HandleName%) then begin
  26.             {double click}
  27.         end;
  28.         if GetListChoice (%fieldname%, %HandleName%) then begin
  29.             {something is selected}
  30.         end;
  31.     end;
  32. %case update%
  33.     SetWFont (%itemname%);
  34.     LUpdate (thePort^.visRgn, %HandleName%);
  35.     bounds := %HandleName%^^.rView;
  36.     InsetRect (bounds, -1, -1);
  37.     FrameRect (bounds);
  38. %case activate%
  39.     LActivate (activate, %HandleName%);
  40. %case track%
  41.     if (whichControl = %HandleName%^^.vScroll)
  42.     or (whichControl = %HandleName%^^.hScroll) then begin
  43.         if LClick (where, 0, %HandleName%) then begin
  44.             {double-click in scroll bar}
  45.         end;
  46.     end;
  47. %case itemNr%
  48.     %DefineItem%
  49. %case dialog field%
  50.     %fieldname%:%        %integer;
  51.     %haveField%
  52. %case init field%
  53.     %fieldname% := -1;
  54. %case auxiliary%
  55.     %needsFilter%
  56.     {----------}
  57.     var
  58.         %itemname%Handle:    ListHandle;
  59.         
  60.     {----------}
  61.     Procedure Build%Itemname%;
  62.     Begin
  63.         %itemname%Handle := Vert1List (%itemname%);
  64.         AddToList ('One',   %itemname%Handle);
  65.         AddToList ('Two',   %itemname%Handle);
  66.         AddToList ('Three', %itemname%Handle);
  67.         AddToList ('Infinity',  %itemname%Handle);
  68.         LDoDraw (true, %itemname%Handle);
  69.     End; {Build%Itemname%}
  70.     
  71.     {----------}
  72.     Procedure Draw%Itemname%%    %(whichDialog:    DialogPtr;
  73.                                  itemNr:        integer);
  74.     Begin
  75.         DrawList (%itemname%Handle);
  76.     End; {Draw%Itemname%}
  77.     
  78. %case filter%
  79.     if not filtered then begin
  80.         filtered := FilterList (event, %itemname%Handle, %itemname%, %itemname%, itemHit);
  81.     end;
  82. %case set%
  83.     Build%Itemname%;
  84.     SetUserItem (%Itemname%, @Draw%Itemname%);
  85.     SetListChoice (%fieldname%, %itemname%Handle);
  86. %case hit%
  87.     %itemname%: begin
  88.             if GetListChoice (%fieldname%, %itemname%Handle) then begin
  89.                 {something is selected}
  90.             end;
  91.         end;
  92. %case finish%
  93.     LDispose (%Itemname%Handle);
  94.